home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / WIN32 / Pvmfgather.c < prev    next >
C/C++ Source or Header  |  1997-07-22  |  1KB  |  49 lines
  1.  
  2. /* $Id: Pvmfgather.c,v 1.1 1997/06/27 16:24:14 pvmsrc Exp $ */
  3.  
  4. #ifdef WIN32
  5. #include "..\..\include\pvm3.h"
  6. #include "..\..\src\pvmwin.h"
  7. #else 
  8. #include "pvm3.h"
  9. #endif
  10.  
  11. #include "pvm_consts.h"
  12.  
  13. #ifdef __WATCOMC__
  14. #include "watforstr.h"
  15. void __fortran
  16. PVMFGATHER (result, data, count, datatype, msgtag, gname_str, rootinst, info)
  17. void *result, *data;
  18. int *count, *datatype, *msgtag, *rootinst, *info;
  19. WatcomFortranStr* gname_str;
  20. {
  21.    char* gname_ptr = gname_str->strP;
  22.    int   gname_len = gname_str->len;
  23. #else
  24. void __stdcall
  25. PVMFGATHER (result, data, count, datatype, msgtag, gname_ptr,gname_len, rootinst, info)
  26. void *result, *data;
  27. int *count, *datatype, *msgtag, *rootinst, *info;
  28. char * gname_ptr; int gname_len;
  29. {
  30. #endif
  31.  
  32.   char tgroup[MAX_GRP_NAME + 1];
  33.  
  34.   /*
  35.    * Copy the group name to make sure there's a NUL at the end.
  36.    */
  37.  
  38.   if (ftocstr(tgroup,sizeof(tgroup),gname_ptr,gname_len))
  39.     {
  40.     *info = PvmBadParam;
  41.     return;
  42.     }
  43.  
  44.   *info = pvm_gather(result, data, *count, *datatype, *msgtag, tgroup, 
  45.                      *rootinst);
  46.  
  47. }
  48.  
  49.